home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #3 / Commodore_Disk_User_Vol.2_3_1989_-_Side_B.d64 / opcode scanner (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  551 lines
  1. 1 rem**********************************
  2. 2 rem*                               **
  3. 3 rem* opcode....by paul rathbone.   **
  4. 4 rem*                               **
  5. 5 rem*   for commodore disk user     **
  6. 6 rem*                               **
  7. 7 rem*     copyright july 1988       **
  8. 8 rem**********************************
  9. 9 rem**********************************
  10. 10 if a=0 then a=1:load"op",8,1
  11. 15 dim ye$(51):close1:open1,4
  12. 20 gosub 12000:rem************arrays***
  13. 25 lx=0:gosub4000
  14. 30 gosub9200:gosub7900:gosub7300:rem*cls******scr/prt***
  15. 40 if pr$="p" then gosub5400
  16. 100 gosub9200:for y=1 to 7
  17. 110 on y gosub 1000,1100,1200,1300,1400,1500,1600
  18. 120 gosub 7200:rem**************wait***
  19. 130 gosub 9200:rem***************cls***
  20. 140 next y
  21. 150 gosub 6400
  22. 160 if me=1 then gosub5800:me=0
  23. 170 if me=2 then gosub6600:me=0
  24. 180 if me=3 then goto25
  25. 190 if me=4 then sys64738
  26. 200 goto150
  27. 1000 gosub 5600:rem******header(lax)***
  28. 1010 ll=10000:ad=49955:poke(ad+3),198
  29. 1020 for x=1 to 7
  30. 1030 gosub8500:rem**********line no.***
  31. 1040 on x gosub 10000,10010,10020,10030,10040,10050,10060
  32. 1050 gosub7000:rem******process vals***
  33. 1060 op$=lax$(x,1):gosub7500
  34. 1070 gosub5200:rem********print vals***
  35. 1080 nextx:if pr$="p" thenprint#1,""
  36. 1090 return
  37. 1100 gosub5600:rem*******header(as0)***
  38. 1110 ll=10100:poke(ad+2),175
  39. 1120 forx=1 to 7
  40. 1130 gosub8500:rem**********line no.***
  41. 1140 on x gosub 10100,10110,10120,10130,10140,10150,10160
  42. 1150 gosub7100:rem****process vals****
  43. 1160 op$=aso$(x,1):gosub7500
  44. 1170 gosub5000:rem********print vals***
  45. 1180 nextx:if pr$="p" thenprint#1,""
  46. 1190 return
  47. 1200 gosub5600:rem*******header(rla)***
  48. 1210 ll=10200
  49. 1212 if ca$="s" then poke (ad+2),3
  50. 1216 if ca$="c" then poke (ad+2),2
  51. 1220 forx=1 to 8
  52. 1230 gosub8500:rem**********line no.***
  53. 1240 on x gosub 10200,10210,10220,10230,10240,10250,10260,10270
  54. 1250 gosub7100:rem******process vals***
  55. 1260 op$=rla$(x,1):gosub7500
  56. 1270 gosub5000:rem********print vals***
  57. 1280 nextx:if pr$="p" thenprint#1,""
  58. 1290 return
  59. 1300 gosub5600:rem*******header(ins)***
  60. 1310 ll=10300
  61. 1312 if ca$="s" then poke (ad+2),32
  62. 1316 if ca$="c" then poke (ad+2),31
  63. 1320 forx=1 to 7
  64. 1330 gosub8500:rem**********line no.***
  65. 1340 on x gosub 10300,10310,10320,10330,10340,10350,10360
  66. 1350 gosub7100:rem******process vals***
  67. 1360 op$=ins$(x,1):gosub7500
  68. 1370 gosub5000:rem********print vals***
  69. 1380 nextx:if pr$="p" thenprint#1,""
  70. 1390 return
  71. 1400 gosub5600:rem*******header(lse)***
  72. 1410 ll=10400:poke(ad+2),45
  73. 1420 forx=1 to 7
  74. 1430 gosub8500:rem**********line no.***
  75. 1440 on x gosub 10400,10410,10420,10430,10440,10450,10460
  76. 1450 gosub7100:rem******process vals***
  77. 1460 op$=lse$(x,1):gosub7500
  78. 1470 gosub5000:rem********print vals***
  79. 1480 nextx:if pr$="p" thenprint#1,""
  80. 1490 return
  81. 1500 gosub5600:rem*******header(rra)***
  82. 1510 ll=10500
  83. 1512 if ca$="s" then poke (ad+2),178
  84. 1516 if ca$="c" then poke (ad+2),50
  85. 1520 forx=1 to 7
  86. 1530 gosub8500:rem****line no.****
  87. 1540 on x gosub 10500,10510,10520,10530,10540,10550,10560
  88. 1550 gosub7100:rem******process vals***
  89. 1560 op$=rra$(x,1):gosub7500
  90. 1570 gosub5000:rem********print vals***
  91. 1580 nextx:if pr$="p" thenprint#1,""
  92. 1590 return
  93. 1600 gosub5600:rem******header(axs+)***
  94. 1610 ll=10600:poke(ad+2),5
  95. 1620 forx=1 to 8
  96. 1630 gosub8500:rem**********line no.***
  97. 1640 on x gosub 10600,10610,10620,10630,10640,10650,10660,10670
  98. 1650 gosub7100:rem******process vals***
  99. 1660 op$=axs$(x,1):gosub7500
  100. 1670 gosub5000:rem********print vals***
  101. 1680 nextx:if pr$="p" thenprint#1,""
  102. 1690 return
  103. 4000 rem*************set/clear carry***
  104. 4010 gosub9200
  105. 4020 print"            ";
  106. 4030 printchr$(18);"c";chr$(146);"lear carry?";:if ca$="c" thenprint"_";
  107. 4035 print:print
  108. 4040 print"                or":print
  109. 4050 print"             ";
  110. 4060 printchr$(18);"s";chr$(146);"et carry  ";:if ca$="s" thenprint"_";
  111. 4070 get ca$:ifca$=""then4070
  112. 4080 if ca$="s" then poke49972,56:poke49984,56:return
  113. 4090 if ca$="c" then poke49972,24:poke49984,24:return
  114. 4095 goto4070
  115. 4100 rem*******print carry clear/set***
  116. 4110 print"[145][145]";
  117. 4120 if ca$="c" then print"carry clear":print:print:return
  118. 4130 if ca$="s" then print"carry set":print:print:return
  119. 4140 print"err":print:print:return
  120. 5000 rem***(rest)******output values***
  121. 5010 cc=0:gosub 5100
  122. 5020 printop$;
  123. 5030 cc=14:gosub 5100
  124. 5040 printfl$;
  125. 5050 cc=22:gosub 5100
  126. 5060 printac;
  127. 5070 cc=33:gosub 5100
  128. 5080 printex:if pr$="p" then gosub5700
  129. 5090 return
  130. 5100 rem***********set cursor column***
  131. 5110 poke780,0:poke782,cc
  132. 5120 poke 781,peek(214)
  133. 5130 sys (58636)
  134. 5140 return
  135. 5200 rem***(lax)*******output values***
  136. 5210 cc=0:gosub 5100
  137. 5220 printop$;
  138. 5230 cc=14:gosub 5100
  139. 5240 printfl$;
  140. 5250 cc=20:gosub 5100
  141. 5260 printac;
  142. 5270 cc=25:gosub 5100
  143. 5280 printa1;
  144. 5290 cc=33:gosub 5100
  145. 5300 printex:if pr$="p" then gosub5500
  146. 5310 return
  147. 5400 rem**************printer header***
  148. 5405 if ca$="s" then print#1,"",,,"carry set"
  149. 5410 if ca$="c" then print#1,"",,,"carry clear"
  150. 5420 print#1,"",
  151. 5430 print#1,"opcode",
  152. 5440 print#1,"o.k.?",
  153. 5450 print#1,"actual",
  154. 5460 print#1,"target"
  155. 5470 print#1,"****************************************************************";
  156. 5480 print#1,"**********"
  157. 5490 return
  158. 5500 rem****(lax)*****printer output***
  159. 5510 print#1," ";op$,
  160. 5520 print#1,"    ";fl$,
  161. 5530 print#1," ";ac;
  162. 5540 print#1," ";a1,
  163. 5550 print#1,ex
  164. 5560 return
  165. 5600 rem***************screen header***
  166. 5610 gosub9200:gosub4100
  167. 5620 print" opcode      o.k.?    actual     target"
  168. 5630 return
  169. 5700 rem****(rest)****printer output***
  170. 5710 print#1," ";op$,
  171. 5720 print#1,"    ";fl$,
  172. 5730 print#1," ";ac,
  173. 5740 print#1,ex
  174. 5750 return
  175. 5800 rem**operative code print*********
  176. 5810 gosub9200
  177. 5820 gosub7950
  178. 5830 gosub7300
  179. 5840 if pr$="s" then gosub7600:gosub7700:return
  180. 5850 if pr$="p" then gosub7800:gosub7850:gosub7600:gosub7700
  181. 5860 return
  182. 6000 rem*ass'r notation header (scr)***
  183. 6010 print"   instruction      assembler notation"
  184. 6020 return
  185. 6100 rem***(scr)instr & asr notation***
  186. 6105 gosub9200:gosub6000
  187. 6110 for x=1 to 7
  188. 6120 print"    ";lax$(x,3);"      ";lax$(x,2)
  189. 6130 nextx:print""
  190. 6135 gosub7200:gosub9200:gosub6000
  191. 6140 for x=1 to 7
  192. 6150 print"    ";aso$(x,3);"      ";aso$(x,2)
  193. 6160 nextx:print""
  194. 6165 gosub7200:gosub9200:gosub6000
  195. 6170 for x=1 to 8
  196. 6180 print"    ";rla$(x,3);"      ";rla$(x,2)
  197. 6190 nextx:print""
  198. 6195 gosub7200:gosub9200:gosub6000
  199. 6200 for x=1 to 7
  200. 6210 print"    ";ins$(x,3);"      ";ins$(x,2)
  201. 6220 nextx:print""
  202. 6225 gosub7200:gosub9200:gosub6000
  203. 6230 for x=1 to 7
  204. 6240 print"    ";lse$(x,3);"      ";lse$(x,2)
  205. 6250 nextx:print""
  206. 6255 gosub7200:gosub9200:gosub6000
  207. 6260 for x=1 to 7
  208. 6270 print"    ";rra$(x,3);"      ";rra$(x,2)
  209. 6280 nextx:print""
  210. 6285 gosub7200:gosub9200:gosub6000
  211. 6290 for x=1 to 8
  212. 6300 print"    ";axs$(x,3);"      ";axs$(x,2)
  213. 6310 nextx:print""
  214. 6315 gosub7200
  215. 6320 return
  216. 6400 rem***************menu - working codes/all codes plus assembler notation***
  217. 6410 gosub9200
  218. 6420 print"[145][145]":cc=16:gosub5100
  219. 6430 printchr$(18);
  220. 6440 print"menu";chr$(146);""
  221. 6450 print"      1. list successful codes.":print
  222. 6460 print"      2. list all codes + hex values.":print
  223. 6470 print"      3. restart program.":print
  224. 6480 print"      4. exit & initialise"
  225. 6490 get me$:if me$="" then6490
  226. 6500 me=val(me$):if me<1 then 6490
  227. 6510 if me>4 then 6490
  228. 6520 return
  229. 6600 rem**?all codes & hex vals"
  230. 6610 [141] 9200
  231. 6620 [141] 9000
  232. 6630 [141] 7300
  233. 6640 [139] pr$[178]"s" [167] [141]6000:[141]6100:[142]
  234. 6650 [139] pr$[178]"p" [167] [141]6700:[141]6000:[141]6100
  235. 6660 [142]
  236. 6700 [143]******(prt) header codes/hex***
  237. 6710 [152]1,"","instruction",,"assembler notation"
  238. 6720 [129] x[178]1 [164] 7
  239. 6730 [152]1,"",lax$(x,1),,lax$(x,2)
  240. 6740 [130]x:[152]1,""
  241. 6750 [129] x[178]1 [164] 7
  242. 6760 [152]1,"",aso$(x,1),,aso$(x,2)
  243. 6770 [130]x:[152]1,""
  244. 6780 [129] x[178]1 [164] 8
  245. 6790 [152]1,"",rla$(x,1),,rla$(x,2)
  246. 6800 [130]x:[152]1,""
  247. 6810 [129] x[178]1 [164] 7
  248. 6820 [152]1,"",ins$(x,1),,ins$(x,2)
  249. 6830 [130]x:[152]1,""
  250. 6840 [129] x[178]1 [164] 7
  251. 6850 [152]1,"",lse$(x,1),,lse$(x,2)
  252. 6860 [130]x:[152]1,""
  253. 6870 [129] x[178]1 [164] 7
  254. 6880 [152]1,"",rra$(x,1),,rra$(x,2)
  255. 6890 [130]x:[152]1,""
  256. 6900 [129] x[178]1 [164] 8
  257. 6910 [152]1,"",axs$(x,1),,axs$(x,2)
  258. 6920 [130]x:[152]1,""
  259. 6930 [142]
  260. 7000 [143]*****processing routine(lax)***
  261. 7010 [139] [194](ad)[178]1 [167] fl$[178]"yes":[137]7040
  262. 7020 [139] [194](ad)[178]0 [167] fl$[178]"no ":[137]7040
  263. 7030 fl$[178]"err"
  264. 7040 ex[178][194](ad[170]3)
  265. 7050 ac[178][194](ad[170]1)
  266. 7060 a1[178][194](ad[170]2)
  267. 7070 [142]
  268. 7100 [143]****processing routine(rest)***
  269. 7110 [139] [194](ad)[178]1 [167] fl$[178]"yes":[137]7140
  270. 7120 [139] [194](ad)[178]0 [167] fl$[178]"no ":[137]7140
  271. 7130 fl$[178]"err"
  272. 7140 ac[178][194](ad[170]1)
  273. 7150 ex[178][194](ad[170]2)
  274. 7160 [142]
  275. 7200 [143]*wait for key & print message**
  276. 7210 [153][199](18);
  277. 7220 [151]780,0:[151]781,23:[151]782,9:[158]65520
  278. 7230 [153]"press space for more";
  279. 7240 [153][199](146);
  280. 7250 [161]ik$:[139] ik$[179][177]" " [167]7250
  281. 7260 [153][199](146);
  282. 7270 [151]780,0:[151]781,23:[151]782,9:[158]65520
  283. 7280 [153]"                     ";
  284. 7290 [142]
  285. 7300 [143]***********screen or printer***
  286. 7320 [153]"          ";
  287. 7330 [153][199](18);"s";
  288. 7340 [153][199](146);"creen or ";
  289. 7350 [153][199](18);"p";
  290. 7360 [153][199](146);"rinter ?"
  291. 7370 [161]pr$:[139] pr$[178]"" [167]7370
  292. 7380 [139] pr$[178]"s" [167] [142]
  293. 7390 [139] pr$[178]"p" [167] [137]7400
  294. 7395 [137] 7370
  295. 7400 [141]9200
  296. 7410 [153]"";
  297. 7420 [153]"    please ensure that your printer"
  298. 7430 [153]"       is switched on and ready."
  299. 7440 [153]"            press any key."
  300. 7480 [161]ix$:[139] ix$[178]"" [167]7480
  301. 7490 [142]
  302. 7500 [143]********get successful tests***
  303. 7510 [139] fl$[178]"no " [167] [142]
  304. 7520 ye$(lx)[178]op$
  305. 7530 lx[178]lx[170]1
  306. 7540 [142]
  307. 7600 [143]*(scr)*header for pos' tests***
  308. 7610 [141] 9200
  309. 7620 [153]"";
  310. 7630 [153]"        operative codes"
  311. 7640 [142]
  312. 7700 [143]**(scr)******print pos tests***
  313. 7710 [139] ca$[178]"c" [167] [153]"        carry clear":[153]
  314. 7720 [139] ca$[178]"s" [167] [153]"          carry set":[153]
  315. 7730 [153]
  316. 7740 [129] za[178]0 [164] lx
  317. 7750 [153]"           ";ye$(za)
  318. 7760 [130] za:[141]7200
  319. 7770 [142]
  320. 7800 [143]*(prt)*header for pos' tests***
  321. 7810 [152]1,"                    operative opcodes"
  322. 7820 [139] ca$[178]"c" [167] [152]1,"                      (carry clear)"
  323. 7830 [139] ca$[178]"s" [167] [152]1,"                      (carry set)"
  324. 7840 [153]:[142]
  325. 7850 [143]**(prt)******print pos tests***
  326. 7860 [129] za[178]0 [164] lx
  327. 7870 [152]1,"                          ";ye$(za)
  328. 7880 [130] za
  329. 7890 [142]
  330. 7900 [143]********print"full res'table***
  331. 7910 print"          full result table"
  332. 7920 return
  333. 7950 rem*****?"operative codes"
  334. 7960 print"           successful codes"
  335. 7970 return
  336. 8500 rem***************print lne no.***
  337. 8510 li=ll+(x*10)-10
  338. 8520 printli;
  339. 8530 return
  340. 9000 rem*****?"codes & values"
  341. 9010 print"          all codes & values"
  342. 9020 return
  343. 9200 rem*********clear screen & home***
  344. 9210 printchr$(19);chr$(147);
  345. 9230 print"";:return
  346. 10000 sys49152:return:rem lax1
  347. 10010 sys49167:return:rem lax2
  348. 10020 sys49184:return:rem lax3
  349. 10030 sys49201:return:rem lax4
  350. 10040 sys49215:return:rem lax5
  351. 10050 sys49231:return:rem lax6
  352. 10060 sys49250:return:rem lax7
  353. 10100 sys49269:return:rem aso1
  354. 10110 sys49282:return:rem aso2
  355. 10120 sys49297:return:rem aso3
  356. 10130 sys49312:return:rem aso4
  357. 10140 sys49324:return:rem aso5
  358. 10150 sys49338:return:rem aso6
  359. 10160 sys49355:return:rem aso7
  360. 10200 sys49372:return:rem rla1
  361. 10210 sys49385:return:rem rla2
  362. 10220 sys49400:return:rem rla3
  363. 10230 sys49415:return:rem rla4
  364. 10240 sys49427:return:rem rla5
  365. 10250 sys49441:return:rem rla6
  366. 10260 sys49458:return:rem rla7
  367. 10270 sys49475:return:rem rla8
  368. 10300 sys49489:return:rem ins1
  369. 10310 sys49499:return:rem ins2
  370. 10320 sys49514:return:rem ins3
  371. 10330 sys49529:return:rem ins4
  372. 10340 sys49541:return:rem ins5
  373. 10350 sys49555:return:rem ins6
  374. 10360 sys49572:return:rem ins7
  375. 10400 sys49589:return:rem lse1
  376. 10410 sys49602:return:rem lse2
  377. 10420 sys49617:return:rem lse3
  378. 10430 sys49632:return:rem lse4
  379. 10440 sys49644:return:rem lse5
  380. 10450 sys49658:return:rem lse6
  381. 10460 sys49675:return:rem lse7
  382. 10500 sys49692:return:rem rra1
  383. 10510 sys49705:return:rem rra2
  384. 10520 sys49720:return:rem rra3
  385. 10530 sys49735:return:rem rra4
  386. 10540 sys49747:return:rem rra5
  387. 10550 sys49761:return:rem rra6
  388. 10560 sys49778:return:rem rra7
  389. 10600 sys49795:return:rem axs1
  390. 10610 sys49817:return:rem axs2
  391. 10620 sys49831:return:rem axs3
  392. 10630 sys49847:return:rem axs4
  393. 10640 pokead+2,0:sys49874:return:rem stz1
  394. 10650 pokead+2,2:sys49892:return:rem alr1
  395. 10660 pokead+2,128:sys49903:return:rem sax1
  396. 10670 pokead+2,5:sys49917:return:rem tad1
  397. 12000 lax$(1,1)="lax abs    "
  398. 12005 lax$(1,2)=".byt $af,$fe,$02"
  399. 12007 lax$(1,3)="lax $02fe  "
  400. 12010 lax$(2,1)="lax abs,x  "
  401. 12015 lax$(2,2)=".byt $df,fb,$02"
  402. 12017 lax$(2,3)="lax $02fb,x"
  403. 12020 lax$(3,1)="lax abs,y  "
  404. 12025 lax$(3,2)=".byt $db,$fb,$02"
  405. 12027 lax$(3,3)="lax $02fb,y"
  406. 12030 lax$(4,1)="lax zero   "
  407. 12035 lax$(4,2)=".byt $c7,$fe"
  408. 12037 lax$(4,3)="lax $fe    "
  409. 12040 lax$(5,1)="lax zero,x "
  410. 12045 lax$(5,2)=".byt $d7,$fb"
  411. 12047 lax$(5,3)="lax $fb,x  "
  412. 12050 lax$(6,1)="lax (ind,x)"
  413. 12055 lax$(6,2)=".byt $c3,$fb"
  414. 12057 lax$(6,3)="lax ($fb,x)"
  415. 12060 lax$(7,1)="lax (ind,y)"
  416. 12065 lax$(7,2)=".byt $d3,$fb"
  417. 12067 lax$(7,3)="lax ($fb,y)"
  418. 12100 aso$(1,1)="aso abs    "
  419. 12105 aso$(1,2)=".byt $0f,$fe,$02"
  420. 12107 aso$(1,3)="aso $02fe  "
  421. 12110 aso$(2,1)="aso abs,x  "
  422. 12115 aso$(2,2)=".byt $1f,$fb,$02"
  423. 12117 aso$(2,3)="aso $02fb,x"
  424. 12120 aso$(3,1)="aso abs,y  "
  425. 12125 aso$(3,2)=".byt $1b,$fb,$02"
  426. 12127 aso$(3,3)="aso $02fb,y"
  427. 12130 aso$(4,1)="aso zero   "
  428. 12135 aso$(4,2)=".byt $07,$fe"
  429. 12137 aso$(4,3)="aso $fe    "
  430. 12140 aso$(5,1)="aso zero,x "
  431. 12145 aso$(5,2)=".byt $17,$fb"
  432. 12147 aso$(5,3)="aso $fe,y  "
  433. 12150 aso$(6,1)="aso (ind,x)"
  434. 12155 aso$(6,2)=".byt $03,$fb"
  435. 12157 aso$(6,3)="aso ($fb,x)"
  436. 12160 aso$(7,1)="aso (ind,y)"
  437. 12165 aso$(7,2)=".byt $0b,$fb"
  438. 12167 aso$(7,3)="aso ($fb,y)"
  439. 12200 rla$(1,1)="rla abs    "
  440. 12205 rla$(1,2)=".byt $2f,$fe,$02"
  441. 12207 rla$(1,3)="rla $02fe  "
  442. 12210 rla$(2,1)="rla abs,x  "
  443. 12215 rla$(2,2)=".byt $3f,$fb,$02"
  444. 12217 rla$(2,3)="rla $02fb,x"
  445. 12220 rla$(3,1)="rla abs,y  "
  446. 12225 rla$(3,2)=".byt $3b,$fb,$02"
  447. 12227 rla$(3,3)="rla $02fb,y"
  448. 12230 rla$(4,1)="rla zero   "
  449. 12235 rla$(4,2)=".byt $27,$fe"
  450. 12237 rla$(4,3)="rla $fe    "
  451. 12240 rla$(5,1)="rla zero,x "
  452. 12245 rla$(5,2)=".byt $37,$fb"
  453. 12247 rla$(5,3)="rla $fb,x  "
  454. 12250 rla$(6,1)="rla (ind,x)"
  455. 12255 rla$(6,2)=".byt $23,$fb"
  456. 12257 rla$(6,3)="rla ($fb,x)"
  457. 12260 rla$(7,1)="rla (ind,y)"
  458. 12265 rla$(7,2)=".byt $33,$fb"
  459. 12267 rla$(7,3)="rla ($fb,y)"
  460. 12270 rla$(8,1)="rla imm    "
  461. 12275 rla$(8,2)=".byt $2b,$55"
  462. 12277 rla$(8,3)="rla #$55   "
  463. 12300 ins$(1,1)="ins abs    "
  464. 12305 ins$(1,2)=".byt $ef,$fe,$02"
  465. 12307 ins$(1,3)="ins $02fe  "
  466. 12310 ins$(2,1)="ins abs,x  "
  467. 12315 ins$(2,2)=".byt $ff,$fb,$02"
  468. 12317 ins$(2,3)="ins $02fb,x"
  469. 12320 ins$(3,1)="ins abs,y  "
  470. 12325 ins$(3,2)=".byt $fb,$fb,$02"
  471. 12327 ins$(3,3)="ins $02fb,y"
  472. 12330 ins$(4,1)="ins zero   "
  473. 12335 ins$(4,2)=".byt $e7,$fe"
  474. 12337 ins$(4,3)="ins $fe    "
  475. 12340 ins$(5,1)="ins zero,x "
  476. 12345 ins$(5,2)=".byt $f7,$fb"
  477. 12347 ins$(5,3)="ins $fb,x  "
  478. 12350 ins$(6,1)="ins (ind,x)"
  479. 12355 ins$(6,2)=".byt $e3,$fb"
  480. 12357 ins$(6,3)="ins ($fb,x)"
  481. 12360 ins$(7,1)="ins (ind,y)"
  482. 12365 ins$(7,2)=".byt $f3,$fb"
  483. 12367 ins$(7,3)="ins ($fb,y)"
  484. 12400 lse$(1,1)="lse abs    "
  485. 12405 lse$(1,2)=".byt $4f,$fe,$02"
  486. 12407 lse$(1,3)="lse $02fe  "
  487. 12410 lse$(2,1)="lse abs,x  "
  488. 12415 lse$(2,2)=".byt $5f,$fb,$02"
  489. 12417 lse$(2,3)="lse $02fb,x"
  490. 12420 lse$(3,1)="lse abs,y  "
  491. 12425 lse$(3,2)=".byt $5b,$fb,$02"
  492. 12427 lse$(3,3)="lse $02fb,y"
  493. 12430 lse$(4,1)="lse zero   "
  494. 12435 lse$(4,2)=".byt $47,$fe"
  495. 12437 lse$(4,3)="lse $fe    "
  496. 12440 lse$(5,1)="lse zero,x "
  497. 12445 lse$(5,2)=".byt $57,$fb"
  498. 12447 lse$(5,3)="lse $fb,x  "
  499. 12450 lse$(6,1)="lse (ind,x)"
  500. 12455 lse$(6,2)=".byt $43,$fb"
  501. 12457 lse$(6,3)="lse ($fb,x)"
  502. 12460 lse$(7,1)="lse (ind,y)"
  503. 12465 lse$(7,2)=".byt $53,$fb"
  504. 12467 lse$(7,3)="lse ($fb,y)"
  505. 12500 rra$(1,1)="rra abs    "
  506. 12505 rra$(1,2)=".byt $6f,$fe,$02"
  507. 12507 rra$(1,3)="rra $02fe  "
  508. 12510 rra$(2,1)="rra abs,x  "
  509. 12515 rra$(2,2)=".byt $7f,$fb,$02"
  510. 12517 rra$(2,3)="rra $02fb,x"
  511. 12520 rra$(3,1)="rra abs,y  "
  512. 12525 rra$(3,2)=".byt $7b,$fb,$02"
  513. 12527 rra$(3,3)="rra $02fb,y"
  514. 12530 rra$(4,1)="rra zero   "
  515. 12535 rra$(4,2)=".byt $67,$fe"
  516. 12537 rra$(4,3)="rra $fe    "
  517. 12540 rra$(5,1)="rra zero,x "
  518. 12545 rra$(5,2)=".byt $77,$fb"
  519. 12547 rra$(5,3)="rra $fb,x  "
  520. 12550 rra$(6,1)="rra (ind,x)"
  521. 12555 rra$(6,2)=".byt $63,$fb"
  522. 12557 rra$(6,3)="rra ($fb,x)"
  523. 12560 rra$(7,1)="rra (ind,y)"
  524. 12565 rra$(7,2)=".byt $73,$fb"
  525. 12567 rra$(7,3)="rra ($fb,y)"
  526. 12600 axs$(1,1)="axs abs    "
  527. 12605 axs$(1,2)=".byt $8f,$fe,$02"
  528. 12607 axs$(1,3)="axs $02fe  "
  529. 12610 axs$(2,1)="axs zero   "
  530. 12615 axs$(2,2)=".byt $87,$fe"
  531. 12617 axs$(2,3)="axs $fe    "
  532. 12620 axs$(3,1)="axs zero,y "
  533. 12625 axs$(3,2)=".byt $97,$fb"
  534. 12627 axs$(3,3)="axs $fb,y  "
  535. 12630 axs$(4,1)="axs (ind,x)"
  536. 12635 axs$(4,2)=".byt $83,$fb"
  537. 12637 axs$(4,3)="axs $fb,x  "
  538. 12640 axs$(5,1)="stz abs    "
  539. 12645 axs$(5,2)=".byt $9c,$fe,$02
  540. 12647 axs$(5,3)[178]"stz $02fe  "
  541. 12650 axs$(6,1)[178]"alr imm    "
  542. 12655 axs$(6,2)[178]".byt $4b,$07"
  543. 12657 axs$(6,3)[178]"alr #$07   "
  544. 12660 axs$(7,1)[178]"sax imm    "
  545. 12665 axs$(7,2)[178]".byt $cb,$20"
  546. 12667 axs$(7,3)[178]"axs #$20   "
  547. 12670 axs$(8,1)[178]"tad abs    "
  548. 12675 axs$(8,2)[178]".byt $8b,$20"
  549. 12677 axs$(8,3)[178]"tad #$20   "
  550. 12680 [142]
  551.